Sub Drive1_Change ()

    ChDrive Drive1.Drive
    Dir1.Path = CurDir$

End Sub

Sub Dir1_Change ()

    ChDir Dir1.Path
    File1.Path = Dir1.Path

End Sub

Sub File1_DblClick ()

    Hide

End Sub

Sub Cmd_OK_Click ()

    Hide

End Sub

Sub Form_Unload (Cancel As Integer)

    Cancel = TRUE
    Hide

End Sub

Sub Form_Load ()

    Remove_Items_From_Sysmenu OpenFile

End Sub